home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / form1040.sit / Form 1040 / card_2598.txt < prev    next >
Text File  |  1988-02-12  |  15KB  |  669 lines
  1. -- card: 2598 from stack: in
  2. -- bmap block id: 3492
  3. -- flags: 4000
  4. -- background id: 6557
  5. -- name: 9
  6. ----- HyperTalk script -----
  7. On OpenCard
  8.   Put 9 Into Bkgnd field ID 26
  9. end OpenCard
  10.  
  11. On ClearInfo
  12.   Send "ClearButtons" to Card ID 2598 -- line 32a
  13.   Set hilite of Card button ID 18 of Card ID 2598 to false -- line 32b
  14.   Set hilite of Card button ID 19 of Card ID 2598 to false -- line 32c
  15.   Put 0 into Card field ID 25 of Card ID 2598 -- line 33a
  16.   Put Empty into Card field ID 26 of Card ID 2598
  17. end ClearInfo
  18.  
  19. On DoIt
  20.   Global NumBox
  21.   Put card field ID 11 of card ID 2598 into FieldNum
  22.   If NumBox is true then
  23.     Add 1 to Card field ID 11 of Card ID 2598
  24.     IF FieldNum = Zero then
  25.       Send "AddField" to Card ID 2598
  26.     end if
  27.   else
  28.     Subtract 1 from Card field ID 11 of Card ID 2598
  29.   end if
  30.  
  31.   Put Card field ID 11 of Card ID 2598 into Value
  32.   If Value <= 0 then
  33.     put "0" into Card field ID 11 of Card ID 2598
  34.     Send "EmptyField" to Card ID 2598
  35.   end if
  36.   Send "FindStatus" to Card ID 3260
  37. End DoIt
  38.  
  39. On ClearButtons
  40.   Set hilite of Card button ID 20 of Card ID 2598 to false
  41.   Set hilite of Card button ID 22 of Card ID 2598 to false
  42.   Set hilite of Card button ID 21 of Card ID 2598 to false
  43.   Set hilite of Card button ID 23 of Card ID 2598 to false
  44.   Put 0 into Card field ID 11 of Card ID 2598
  45. end ClearButtons
  46.  
  47.  
  48. On EmptyField
  49.   Put Empty into Card field ID 26 of card ID 2598
  50.   put "0" into Card field ID 25 of Card ID 2598
  51. end Emptyfield
  52.  
  53. On AddField
  54.   Put "IF you itemize, your total should exceed this number." & " IF total doesn't exceed, use this number " into FieldMessage
  55.   Put FieldMessage into Card field ID 26 of card ID 2598
  56. End AddField
  57.  
  58.  
  59.  
  60.  
  61. -- part 1 (field)
  62. -- low flags: 01
  63. -- high flags: 0000
  64. -- rect: left=88 top=63 right=80 bottom=395
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 3
  69. -- text size: 10
  70. -- style flags: 0
  71. -- line height: 13
  72. -- part name: 
  73.  
  74.  
  75. -- part 2 (field)
  76. -- low flags: 01
  77. -- high flags: 0002
  78. -- rect: left=394 top=63 right=78 bottom=419
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 3
  83. -- text size: 10
  84. -- style flags: 256
  85. -- line height: 13
  86. -- part name: 
  87.  
  88.  
  89. -- part 3 (field)
  90. -- low flags: 01
  91. -- high flags: 0002
  92. -- rect: left=418 top=63 right=78 bottom=502
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 65535
  96. -- font id: 3
  97. -- text size: 10
  98. -- style flags: 0
  99. -- line height: 13
  100. -- part name: 
  101. ----- HyperTalk script -----
  102. On MouseUp
  103.   Send "MouseUp" to Card button ID 4 of Card ID 7846
  104. End MouseUP
  105.  
  106.  
  107.  
  108. -- part 4 (field)
  109. -- low flags: 01
  110. -- high flags: 0000
  111. -- rect: left=88 top=81 right=96 bottom=165
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 3
  116. -- text size: 10
  117. -- style flags: 0
  118. -- line height: 13
  119. -- part name: 
  120.  
  121.  
  122. -- part 5 (field)
  123. -- low flags: 01
  124. -- high flags: 0000
  125. -- rect: left=194 top=81 right=96 bottom=302
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 0
  129. -- font id: 3
  130. -- text size: 10
  131. -- style flags: 0
  132. -- line height: 13
  133. -- part name: 
  134.  
  135.  
  136. -- part 6 (field)
  137. -- low flags: 01
  138. -- high flags: 0000
  139. -- rect: left=352 top=81 right=96 bottom=386
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 0
  143. -- font id: 3
  144. -- text size: 10
  145. -- style flags: 0
  146. -- line height: 13
  147. -- part name: 
  148.  
  149.  
  150. -- part 7 (field)
  151. -- low flags: 01
  152. -- high flags: 0000
  153. -- rect: left=352 top=99 right=114 bottom=386
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 0
  157. -- font id: 3
  158. -- text size: 10
  159. -- style flags: 0
  160. -- line height: 13
  161. -- part name: 
  162.  
  163.  
  164. -- part 8 (field)
  165. -- low flags: 01
  166. -- high flags: 0000
  167. -- rect: left=195 top=99 right=114 bottom=314
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 0
  171. -- font id: 3
  172. -- text size: 10
  173. -- style flags: 0
  174. -- line height: 13
  175. -- part name: 
  176.  
  177.  
  178. -- part 9 (field)
  179. -- low flags: 01
  180. -- high flags: 0000
  181. -- rect: left=88 top=119 right=135 bottom=395
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 0
  185. -- font id: 3
  186. -- text size: 10
  187. -- style flags: 0
  188. -- line height: 13
  189. -- part name: 
  190.  
  191.  
  192. -- part 10 (field)
  193. -- low flags: 01
  194. -- high flags: 0002
  195. -- rect: left=394 top=119 right=134 bottom=419
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 3
  200. -- text size: 10
  201. -- style flags: 256
  202. -- line height: 13
  203. -- part name: 
  204.  
  205.  
  206. -- part 11 (field)
  207. -- low flags: 01
  208. -- high flags: 0002
  209. -- rect: left=418 top=119 right=134 bottom=442
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 3
  214. -- text size: 10
  215. -- style flags: 0
  216. -- line height: 13
  217. -- part name: 
  218. ----- HyperTalk script -----
  219. On SingleButton
  220.   Global TotalBox,Button22,Button23,CardNumber
  221.   Put hilite of Card button ID 22 of Card ID 2598 into Button22
  222.   Put hilite of Card button ID 23 of Card ID 2598 into Button23
  223.   IF Button22 = false and Button23 = False then
  224.     If TotalBox = 1 then
  225.       Put 3750 into Card Field ID 25 of Card ID 2598
  226.     else if TotalBox = 2 then
  227.       Put 4500 into Card Field ID 25 of Card ID 2598
  228.     end if
  229.   Else
  230.     Beep
  231.     Answer "Error in Filing status or in Exemptions."
  232.     Send "EmptyField" to Card ID 2598
  233.     Set hilite of Card button ID 12 of Card ID 3260 to False
  234.     Send "Signal" to Card Button ID 1 of Card ID 2982
  235.     Send "Signal" to Card ID 3260
  236.     Answer "Redue 32a or select different filing status." With "filing Status" or "OK"
  237.     IF it is "filing Status" then
  238.       Get short number of this card
  239.       Put it into CardNumber
  240.       Go to Card ID 2982
  241.       Put "Please select a Filing Status Box." into Card field ID 6 of Card ID 2982
  242.     End if
  243.   end if
  244. End SingleButton
  245.  
  246. On HeadButton
  247.   Global TotalBox,Button22,Button23
  248.   Put hilite of Card button ID 22 of Card ID 2598 into Button22
  249.   Put hilite of Card button ID 23 of Card ID 2598 into Button23
  250.   IF Button22 = false and Button23 = False then
  251.     If TotalBox = 1 then
  252.       Put 5150 into Card Field ID 25 of Card ID 2598
  253.     else if TotalBox = 2 then
  254.       Put 5900 into Card Field ID 25 of Card ID 2598
  255.     end if
  256.   Else
  257.     Beep
  258.     Answer "Error in Filing status or in Exemptions."
  259.     Send "Signal" to Card Button ID 4 of Card ID 2982
  260.     Send "Signal" to Card ID 3260
  261.     Set hilite of Card button ID 12 of Card ID 3260 to False
  262.   end if
  263. End HeadButton
  264.  
  265. On MarriedJ
  266.   Global TotalBox
  267.   If TotalBox = 1 then
  268.     Put 5600 into Card Field ID 25 of Card ID 2598
  269.   else if TotalBox = 2 then
  270.     Put 6200 into Card Field ID 25 of Card ID 2598
  271.   else if TotalBox = 3 then
  272.     Put 6800 into Card Field ID 25 of Card ID 2598
  273.   else if TotalBox = 4 then
  274.     Put 7400 into Card Field ID 25 of Card ID 2598
  275.   end if
  276. end MarriedJ
  277.  
  278. On MarriedS
  279.   Global TotalBox
  280.   If TotalBox = 1 then
  281.     Put 3100 into Card Field ID 25 of Card ID 2598
  282.   else if TotalBox = 2 then
  283.     Put 3700 into Card Field ID 25 of Card ID 2598
  284.   else if TotalBox = 3 then
  285.     Put 4300 into Card Field ID 25 of Card ID 2598
  286.   else if TotalBox = 4 then
  287.     Put 4900 into Card Field ID 25 of Card ID 2598
  288.   end if
  289. end MarriedS
  290.  
  291.  
  292.  
  293. -- part 13 (field)
  294. -- low flags: 01
  295. -- high flags: 0000
  296. -- rect: left=88 top=138 right=167 bottom=395
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 0
  300. -- font id: 3
  301. -- text size: 10
  302. -- style flags: 0
  303. -- line height: 13
  304. -- part name: 
  305.  
  306.  
  307. -- part 14 (field)
  308. -- low flags: 01
  309. -- high flags: 0000
  310. -- rect: left=88 top=221 right=277 bottom=395
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 0 / 0
  313. -- text alignment: 0
  314. -- font id: 3
  315. -- text size: 10
  316. -- style flags: 0
  317. -- line height: 13
  318. -- part name: 
  319.  
  320.  
  321. -- part 15 (field)
  322. -- low flags: 01
  323. -- high flags: 0002
  324. -- rect: left=307 top=151 right=166 bottom=332
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 1
  328. -- font id: 3
  329. -- text size: 10
  330. -- style flags: 256
  331. -- line height: 13
  332. -- part name: 
  333.  
  334.  
  335. -- part 16 (field)
  336. -- low flags: 01
  337. -- high flags: 0002
  338. -- rect: left=308 top=199 right=214 bottom=333
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 3
  343. -- text size: 10
  344. -- style flags: 256
  345. -- line height: 13
  346. -- part name: 
  347.  
  348.  
  349. -- part 17 (field)
  350. -- low flags: 01
  351. -- high flags: 0000
  352. -- rect: left=88 top=173 right=217 bottom=393
  353. -- title width / last selected line: 0
  354. -- icon id / first selected line: 0 / 0
  355. -- text alignment: 0
  356. -- font id: 3
  357. -- text size: 10
  358. -- style flags: 0
  359. -- line height: 13
  360. -- part name: 
  361.  
  362.  
  363. -- part 18 (button)
  364. -- low flags: 00
  365. -- high flags: A005
  366. -- rect: left=339 top=150 right=167 bottom=357
  367. -- title width / last selected line: 0
  368. -- icon id / first selected line: 0 / 0
  369. -- text alignment: 1
  370. -- font id: 0
  371. -- text size: 12
  372. -- style flags: 0
  373. -- line height: 16
  374. -- part name: 
  375.  
  376.  
  377. -- part 19 (button)
  378. -- low flags: 00
  379. -- high flags: A005
  380. -- rect: left=338 top=199 right=216 bottom=356
  381. -- title width / last selected line: 0
  382. -- icon id / first selected line: 0 / 0
  383. -- text alignment: 1
  384. -- font id: 0
  385. -- text size: 12
  386. -- style flags: 0
  387. -- line height: 16
  388. -- part name: 
  389.  
  390.  
  391. -- part 20 (button)
  392. -- low flags: 00
  393. -- high flags: A005
  394. -- rect: left=177 top=79 right=95 bottom=195
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 0 / 0
  397. -- text alignment: 1
  398. -- font id: 0
  399. -- text size: 12
  400. -- style flags: 0
  401. -- line height: 16
  402. -- part name: 
  403. ----- HyperTalk script -----
  404. on mouseUp
  405.   Global NumBox,Flag1
  406.   Set cursor to 4
  407.   put hilite of Card button ID 20 of Card ID 2598 into NumBox
  408.   Send "DoIt" to Card ID 2598
  409. end mouseUp
  410.  
  411.  
  412.  
  413. -- part 21 (button)
  414. -- low flags: 00
  415. -- high flags: A005
  416. -- rect: left=334 top=79 right=95 bottom=352
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 1
  420. -- font id: 0
  421. -- text size: 12
  422. -- style flags: 0
  423. -- line height: 16
  424. -- part name: 
  425. ----- HyperTalk script -----
  426. on mouseUp
  427.   Global NumBox
  428.   Set cursor to 4
  429.   put hilite of Card button ID 21 of Card ID 2598 into NumBox
  430.   Send "DoIt" to Card ID 2598
  431. end mouseUp
  432.  
  433.  
  434.  
  435. -- part 22 (button)
  436. -- low flags: 00
  437. -- high flags: A005
  438. -- rect: left=177 top=99 right=115 bottom=195
  439. -- title width / last selected line: 0
  440. -- icon id / first selected line: 0 / 0
  441. -- text alignment: 1
  442. -- font id: 0
  443. -- text size: 12
  444. -- style flags: 0
  445. -- line height: 16
  446. -- part name: 
  447. ----- HyperTalk script -----
  448. on mouseUp
  449.   Global NumBox
  450.   Set cursor to 4
  451.   put hilite of Card button ID 22 of Card ID 2598 into NumBox
  452.   Send "DoIt" to Card ID 2598
  453. end mouseUp
  454.  
  455. On Signal
  456.   Visual effect scroll Left
  457.   Go to Card ID 2598
  458.   Repeat 11 times
  459.     Get hilite of Card button ID 22 of Card ID 2598
  460.     If it = True then
  461.       Set hilite of Card Button ID 22 of Card ID 2598 to False
  462.     else
  463.       Set hilite of Card Button ID 22 of Card ID 2598 to True
  464.     end if
  465.   end Repeat
  466.   Send "ClearButtons" to Card ID 2598
  467. end Signal
  468.  
  469.  
  470.  
  471. -- part 23 (button)
  472. -- low flags: 00
  473. -- high flags: A005
  474. -- rect: left=334 top=99 right=115 bottom=352
  475. -- title width / last selected line: 0
  476. -- icon id / first selected line: 0 / 0
  477. -- text alignment: 1
  478. -- font id: 0
  479. -- text size: 12
  480. -- style flags: 0
  481. -- line height: 16
  482. -- part name: 
  483. ----- HyperTalk script -----
  484. on mouseUp
  485.   Global NumBox
  486.   Set cursor to 4
  487.   put hilite of Card button ID 23 of Card ID 2598 into NumBox
  488.   Send "DoIt" to Card ID 2598
  489. end mouseUp
  490.  
  491. On Signal
  492.   Visual effect scroll Left
  493.   Go to Card ID 2598
  494.   Repeat 11 times
  495.     Get hilite of Card button ID 23 of Card ID 2598
  496.     If it = True then
  497.       Set hilite of Card Button ID 23 of Card ID 2598 to False
  498.     else
  499.       Set hilite of Card Button ID 23 of Card ID 2598 to True
  500.     end if
  501.   end Repeat
  502.   Send "ClearButtons" to Card ID 2598
  503. end Signal
  504.  
  505.  
  506. -- part 24 (field)
  507. -- low flags: 01
  508. -- high flags: 0002
  509. -- rect: left=394 top=260 right=275 bottom=419
  510. -- title width / last selected line: 0
  511. -- icon id / first selected line: 0 / 0
  512. -- text alignment: 1
  513. -- font id: 3
  514. -- text size: 10
  515. -- style flags: 256
  516. -- line height: 13
  517. -- part name: 
  518.  
  519.  
  520. -- part 25 (field)
  521. -- low flags: 00
  522. -- high flags: 0002
  523. -- rect: left=418 top=260 right=275 bottom=502
  524. -- title width / last selected line: 0
  525. -- icon id / first selected line: 0 / 0
  526. -- text alignment: 65535
  527. -- font id: 3
  528. -- text size: 10
  529. -- style flags: 0
  530. -- line height: 13
  531. -- part name: 
  532.  
  533.  
  534. -- part 26 (field)
  535. -- low flags: 00
  536. -- high flags: 0000
  537. -- rect: left=410 top=179 right=261 bottom=502
  538. -- title width / last selected line: 0
  539. -- icon id / first selected line: 0 / 0
  540. -- text alignment: 0
  541. -- font id: 3
  542. -- text size: 10
  543. -- style flags: 0
  544. -- line height: 13
  545. -- part name: 
  546.  
  547.  
  548. -- part 27 (button)
  549. -- low flags: 00
  550. -- high flags: A003
  551. -- rect: left=91 top=35 right=50 bottom=188
  552. -- title width / last selected line: 0
  553. -- icon id / first selected line: 0 / 0
  554. -- text alignment: 1
  555. -- font id: 0
  556. -- text size: 12
  557. -- style flags: 0
  558. -- line height: 16
  559. -- part name: Schedule A
  560. ----- HyperTalk script -----
  561. on mouseUp
  562.   Go to Card ID 9317
  563. end mouseUp
  564.  
  565.  
  566.  
  567. -- part contents for background part 13
  568. ----- text -----
  569. Tax Compu - tation
  570.  
  571. -- part contents for background part 15
  572. ----- text -----
  573.  
  574.  
  575.  
  576.  
  577.  
  578.  
  579.  
  580. -- part contents for card part 1
  581. ----- text -----
  582. 31.  Amount from line 30 (adjusted gross income) . . . . . . . . . .
  583.  
  584. -- part contents for card part 2
  585. ----- text -----
  586. 31
  587.  
  588. -- part contents for card part 10
  589. ----- text -----
  590. 32a
  591.  
  592. -- part contents for card part 4
  593. ----- text -----
  594. 32a. Check if:
  595.  
  596. -- part contents for card part 5
  597. ----- text -----
  598. You were 65 or over
  599.  
  600. -- part contents for card part 6
  601. ----- text -----
  602. Blind
  603.  
  604. -- part contents for card part 8
  605. ----- text -----
  606. Spouse was 65 or over
  607.  
  608. -- part contents for card part 7
  609. ----- text -----
  610. Blind
  611.  
  612. -- part contents for card part 9
  613. ----- text -----
  614.    Add the number of boxes checked and enter the total here. . . .
  615.  
  616.  
  617. -- part contents for card part 13
  618. ----- text -----
  619. 32b.  If you can be claimed as a dependent on another person's
  620.           return, check here . . . . . . . . . . . . . . . .
  621.  
  622. -- part contents for card part 14
  623. ----- text -----
  624. 33a.  Itemized deductions.  See page 15 to see if you should 
  625.          itemize.  If you don't itemize, enter zero.  If you do 
  626.          itemize, attach Schedule A, enter the amount from 
  627.          Schedule A, line 26, AND  skip line 33b. . . . . . . . . . . . . .  . . . . . . .
  628.  
  629. -- part contents for card part 15
  630. ----- text -----
  631. 32b
  632.  
  633. -- part contents for card part 16
  634. ----- text -----
  635. 32c
  636.  
  637. -- part contents for card part 17
  638. ----- text -----
  639. 32c.  If you are married filing a separate return and your
  640.          spouse itemizes deductions, or you are a dual - status
  641.          alien, see page 15 and check here. . . . . 
  642.  
  643. -- part contents for card part 24
  644. ----- text -----
  645. 0
  646.  
  647. -- part contents for background part 20
  648. ----- text -----
  649. Continue to next card
  650.  
  651. -- part contents for background part 26
  652. ----- text -----
  653. 9
  654.  
  655. -- part contents for card part 3
  656. ----- text -----
  657. 0
  658.  
  659. -- part contents for card part 25
  660. ----- text -----
  661. 0
  662.  
  663. -- part contents for card part 11
  664. ----- text -----
  665. 0
  666.  
  667. -- part contents for background part 40
  668. ----- text -----
  669. 4:05 PM